home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / compile_to_jvm3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  2.9 KB  |  171 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_jvm.h"
  9. void r770copy_from(T770 C,T770 a1,int a2){
  10. int _i=0;
  11. _i=a2;
  12. while (!((_i)<(0))) {
  13. (C)[_i]=((a1)[_i]);
  14. _i=(_i)-(1);
  15. }
  16. }
  17. T770 r770realloc(T770 C,int a1,int a2){
  18. T770 R=NULL;
  19. R=calloc(a2,sizeof(T0*));
  20. r770copy_from(R,C,(a1)-(1));
  21. return R;
  22. }
  23. void r100copy_from(T100 C,T100 a1,int a2){
  24. int _i=0;
  25. _i=a2;
  26. while (!((_i)<(0))) {
  27. (C)[_i]=((a1)[_i]);
  28. _i=(_i)-(1);
  29. }
  30. }
  31. T100 r100realloc(T100 C,int a1,int a2){
  32. T100 R=NULL;
  33. R=calloc(a2,sizeof(T0*));
  34. r100copy_from(R,C,(a1)-(1));
  35. return R;
  36. }
  37. void r593set_all_with(T593 C,int a1,int a2){
  38. int _i=0;
  39. _i=a2;
  40. while (!((_i)<(0))) {
  41. (C)[_i]=(a1);
  42. _i=(_i)-(1);
  43. }
  44. }
  45. void r822clear_all(T822 C,int a1){
  46. int _i=0;
  47. T0* _v=NULL;
  48. _i=a1;
  49. while (!((_i)<(0))) {
  50. (C)[_i]=(_v);
  51. _i=(_i)-(1);
  52. }
  53. }
  54. void r822set_all_with(T822 C,T0* a1,int a2){
  55. int _i=0;
  56. _i=a2;
  57. while (!((_i)<(0))) {
  58. (C)[_i]=(a1);
  59. _i=(_i)-(1);
  60. }
  61. }
  62. void r822copy_from(T822 C,T822 a1,int a2){
  63. int _i=0;
  64. _i=a2;
  65. while (!((_i)<(0))) {
  66. (C)[_i]=((a1)[_i]);
  67. _i=(_i)-(1);
  68. }
  69. }
  70. T822 r822realloc(T822 C,int a1,int a2){
  71. T822 R=NULL;
  72. R=calloc(a2,sizeof(T0*));
  73. r822copy_from(R,C,(a1)-(1));
  74. return R;
  75. }
  76. void r304copy_from(T304 C,T304 a1,int a2){
  77. int _i=0;
  78. _i=a2;
  79. while (!((_i)<(0))) {
  80. (C)[_i]=((a1)[_i]);
  81. _i=(_i)-(1);
  82. }
  83. }
  84. T304 r304realloc(T304 C,int a1,int a2){
  85. T304 R=NULL;
  86. R=calloc(a2,sizeof(T0*));
  87. r304copy_from(R,C,(a1)-(1));
  88. return R;
  89. }
  90. void r113set_all_with(T113 C,T0* a1,int a2){
  91. int _i=0;
  92. _i=a2;
  93. while (!((_i)<(0))) {
  94. (C)[_i]=(a1);
  95. _i=(_i)-(1);
  96. }
  97. }
  98. int r113fast_index_of(T113 C,T0* a1,int a2){
  99. int R=0;
  100. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  101. R=(R)+(1);
  102. }
  103. return R;
  104. }
  105. void r113copy_from(T113 C,T113 a1,int a2){
  106. int _i=0;
  107. _i=a2;
  108. while (!((_i)<(0))) {
  109. (C)[_i]=((a1)[_i]);
  110. _i=(_i)-(1);
  111. }
  112. }
  113. T113 r113realloc(T113 C,int a1,int a2){
  114. T113 R=NULL;
  115. R=calloc(a2,sizeof(T0*));
  116. r113copy_from(R,C,(a1)-(1));
  117. return R;
  118. }
  119. void r354set_all_with(T354 C,T0* a1,int a2){
  120. int _i=0;
  121. _i=a2;
  122. while (!((_i)<(0))) {
  123. (C)[_i]=(a1);
  124. _i=(_i)-(1);
  125. }
  126. }
  127. void r654set_all_with(T654 C,T0* a1,int a2){
  128. int _i=0;
  129. _i=a2;
  130. while (!((_i)<(0))) {
  131. (C)[_i]=(a1);
  132. _i=(_i)-(1);
  133. }
  134. }
  135. int r654fast_index_of(T654 C,T0* a1,int a2){
  136. int R=0;
  137. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  138. R=(R)+(1);
  139. }
  140. return R;
  141. }
  142. void r654copy_from(T654 C,T654 a1,int a2){
  143. int _i=0;
  144. _i=a2;
  145. while (!((_i)<(0))) {
  146. (C)[_i]=((a1)[_i]);
  147. _i=(_i)-(1);
  148. }
  149. }
  150. T654 r654realloc(T654 C,int a1,int a2){
  151. T654 R=NULL;
  152. R=calloc(a2,sizeof(T0*));
  153. r654copy_from(R,C,(a1)-(1));
  154. return R;
  155. }
  156. void r586copy_from(T586 C,T586 a1,int a2){
  157. int _i=0;
  158. _i=a2;
  159. while (!((_i)<(0))) {
  160. (C)[_i]=((a1)[_i]);
  161. _i=(_i)-(1);
  162. }
  163. }
  164. T586 r586realloc(T586 C,int a1,int a2){
  165. T586 R=NULL;
  166. R=calloc(a2,sizeof(T0*));
  167. r586copy_from(R,C,(a1)-(1));
  168. return R;
  169. }
  170.  
  171.